home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Mappa.dxr / Internal_240_tasto send.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  2.9 KB  |  90 lines
  1. on mouseEnter
  2.   cursor(280)
  3.   sprite(the currentSpriteNum).member = member("SendDown")
  4. end
  5.  
  6. on mouseLeave
  7.   cursor(-1)
  8.   sprite(the currentSpriteNum).member = member("SendUp")
  9. end
  10.  
  11. on mouseDown
  12.   global email
  13.   set the member of sprite the currentSpriteNum to member("SendUp")
  14.   put GetUserEmailPref(1) into field "From"
  15.   put GetUserEmailPref(2) into field "MailServer"
  16.   if (member("From").text = EMPTY) or (member("MailServer").text = EMPTY) then
  17.     openMessageWindow("ATTENZIONE! Impossibile rilevare l'account di posta elettronica." & RETURN && RETURN & "Il computer sembra non essere configurato correttamente per l'invio di e-mail.", "Impossibile inviare la e-mail", "Stop")
  18.     exit
  19.   end if
  20.   if member("from").text = EMPTY then
  21.     openMessageWindow("E' necessario inserire il nome del mittente nel campo" && QUOTE & "Mail From" & QUOTE & ".", "Galleria d'arte", "Warning")
  22.     the keyboardFocusSprite = 24
  23.     set the member of sprite the currentSpriteNum to member("SendUp")
  24.     set the member of sprite (the currentSpriteNum + 1) to member("StopDisabled")
  25.     member("status").text = EMPTY
  26.     exit
  27.   end if
  28.   email = new(xtra("DirectEmail"), field("MailServer"), EMPTY, EMPTY)
  29.   risultato = SendEmail(email, field("From"), field("To"), field("CC"), field("Bcc"), field("Subject"), field("Body"), field("Attachment"))
  30.   set the member of sprite the currentSpriteNum to member("SendDisabled")
  31.   set the member of sprite (the currentSpriteNum + 1) to member("StopUp")
  32.   put "Invio in corso....." into field "Status"
  33.   startTimer()
  34.   cursor(4)
  35.   repeat while EmailDone(email) = 0
  36.     put "Tempo invio messaggio:" && string(the timer / 60) && "sec." into field "Status"
  37.   end repeat
  38.   cursor(-1)
  39.   if EmailDone(email) then
  40.     error = EmailErrorCode(email)
  41.     if error = 0 then
  42.       put "Messaggio Inviato!" into field "Status"
  43.     else
  44.       put "Errore: " & error & " " & translateToItalian(error) into field "Status"
  45.     end if
  46.   end if
  47.   email = 0
  48.   set the member of sprite the currentSpriteNum to member("SendUp")
  49.   set the member of sprite (the currentSpriteNum + 1) to member("StopDisabled")
  50. end
  51.  
  52. on translateToItalian err
  53.   str = EMPTY
  54.   case err of
  55.     4096:
  56.       str = "Errore sconosciuto"
  57.     4097:
  58.       str = "Connessione assente o annullata"
  59.     4098:
  60.       str = "Server non raggiungibile"
  61.     4099:
  62.       str = "Errore TCP durante l'invio dei dati"
  63.     4100:
  64.       str = "Errore TCP durante la ricezione dei dati"
  65.     4101:
  66.       str = "Server occupato"
  67.     4102:
  68.       str = "Connessione interrotta"
  69.     4103:
  70.       str = "Non connesso"
  71.     4104:
  72.       str = "Comando rifiutato dal server"
  73.     4105:
  74.       str = "Operazione annullata dall'utente"
  75.     4608:
  76.       str = "Errore sconosciuto"
  77.     4609:
  78.       str = "Errore di protocollo"
  79.     4610:
  80.       str = "Errore di lettura sul file"
  81.     4611:
  82.       str = "Mittente errato"
  83.     4612:
  84.       str = "Alcuni destinatari non sono stati riconosciuti"
  85.     4613:
  86.       str = "Destinatario errato"
  87.   end case
  88.   return str
  89. end
  90.